编写VB程序,求在[20,2000]之间所有能被6除余2，被8除余4，被9除余4的数的立方和

这样的数不存在。
原因：因为这个数被8除余4，被9除余4，所以被72除余4，因此它被6除肯定也余4，不可能余2.
如果你一定要这个程序的话，应该是这样：
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 20 To 2000
If i Mod 6 = 2 And i Mod 8 = 4 And i Mod 9 = 4 Then s = s + i ^ 3 Else s = s
Next i
Print s
End Sub
因为这个数不存在，所以这个程序运行的结果是0.

dim i as integer
dim sum as long
for i=20 to 2000
if i mod 6=2 and i mod 8=4 and i mod 9=4 then sum=sum+ i*i*i
next i
print sum
doevents

Dim i As Integer
s = 0
For i = 20 To 2000
If i Mod 6 = 2 And i Mod 8 = 4 And i Mod 9 = 4 Then
s = s + i ^ 3
End If
Next
Print s
由于这样的数字一个都没有 所以s的值为0